home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 23
/
023.d81
/
db's cheapsheet
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
90 lines
90 gosub 900
100 print"[147]db's cheapsheet"
110 print"printer ready (y/n)"
115 gett$:ift$<>"n" and t$<>"y" then 115
117 if t$="n" then 840
120 print"working. . . "
130 :
140 rem start printing
150 :
160 open1,4
170 :
180 rem lines # 0-5
190 :
200 print#1,s1$+b1$;
210 for x=1 to 60:print#1,b3$;:next:print#1,b2$
220 print#1,bl$:print#1,bl$
230 print#1,s1$+b6$+s1$+s3$+b1$;
240 forx=1to14:print#1,b3$;:next:print#1,b2$+s1$+s1$+s1$+b6$
250 print#1,s1$+b6$+s1$+s3$+b6$;
260 print#1,s1$+s3$;:print#1,b4$;:forx=1to14:print#1,b3$;:next
270 print#1,b2$+s1$+s3$+sp$+b6$
280 :
290 rem lines # 6-15
300 :
310 forx=1to10
320 print#1,s1$+b6$+s1$+s3$+b6$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
330 next
340 :
350 rem close line #15
360 :
370 print#1,s1$+b6$+s3$+sp$+sp$+b1$;:forx=1to7:print#1,b3$;:next
380 print#1,b5$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
390 :
400 rem lines # 16-55
410 :
420 for x=16 to 55
430 print#1,s1$+b6$+s3$+sp$+sp$+b6$+left$(s2$,37)+b6$+s1$+s3$+sp$+b6$
440 next
450 :
460 rem line #56
470 :
480 print#1,s1$+b6$+s3$+sp$+sp$+b4$;:forx=1to7:print#1,b3$;:next
490 print#1,b2$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
500 :
510 rem lines # 57-75
520 :
530 forx=1to18
540 print#1,s1$+b6$+s1$+s3$+b6$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
550 next
560 :
570 rem lines # 76-77
580 :
590 print#1,s1$+b6$+s1$+s3$+b4$;
600 for x=1 to 14:print#1,b3$;:next:print#1,b2$+s1$+s3$+b6$+s1$+s3$+sp$+b6$
610 print#1,s1$+b6$+left$(s2$,29);
620 print#1,b4$;:forx=1to14:print#1,b3$;:next:print#1,b5$+s1$+s3$+sp$+b6$
630 forx=1to4:print#1,bl$:next
640 :
650 rem lines # 82-89
660 :
670 print#1,s1$+b6$+s1$+s3$+b1$;
680 forx=1to29:print#1,b3$;:next:print#1,b2$+s1$+s3$+sp$+b6$
690 forx=1to6
700 print#1,s1$+b6$+s1$+s3$+b6$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
710 next
720 print#1,s1$+b6$+s1$+s3$+b4$;
730 forx=1to29:print#1,b3$;:next:print#1,b5$+s1$+s3$+sp$+b6$
740 :
750 rem lines #90-
760 :
770 forx=1to6:print#1,bl$:next
780 print#1,s1$+b4$;
790 forx=1to60:print#1,b3$;:next:print#1,b5$
800 :
810 rem end or repeat
820 :
830 print#1,:close1
840 print"[147]another copy (y/n) n";:input"[157][157][157]";r$
850 if r$<>"y" then print"[147]":load"hello connect",8:end
860 run
870 :
880 rem initialize graphic variables
890 :
900 b1$="[176]":b2$="[174]":b3$="[192]":b4$="[173]":b5$="[189]":b6$="[221]":sp$=" "
910 s1$=" "
920 s2$=" "
930 s3$=" "
940 bl$=s1$+b6$+s2$+s1$+s1$+b6$
950 return